home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1990 January
/
64er_Magazin_90-01_1990_Markt__Technik_de_Side_A.d64
/
quelltext 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
64 lines
100 : sys 36864
110 : .opt oo
120 : *=$0400
130 :;
140 :;*** auslesung der rem-zeilen ***
150 :;
160 : lda #$ff
170 : sta $5a
180 : lda #$bf
190 : sta $5b
200 : lda $7a
210 : sta $5f
220 : lda $7b
230 : sta $60
240 nextline lda $5b
250 : cmp #$c4
260 : bcc read
262 : jmp $c000
275 :;
280 read lda #7
290 r0 adc $5f
310 : sta $5f
320 : bcc r1
330 : inc $60
340 r1 ldy #8
350 : lda ($5f),y
360 : jsr decode
370 : sta 2
400 : dey
410 r2 lda ($5f),y
412 : beq nextline
415 : jsr decode
417 : rol
420 : lsr 2
430 : ror
460 : sta ($5a),y
470 : dey
475 : bne r2
480 : clc
490 : lda $5a
500 : adc #7
510 : sta $5a
515 : lda #8
520 : bcc r0
530 : inc $5b
540 : clc
560 : bcc r0
600 :;
610 decode cmp #160
620 : bcc de1
625 : sbc #64
630 : rts
635 de1 cmp #96
640 : bcc de2
645 : sbc #32
650 : rts
655 de2 cmp #64
660 : bcc de3
665 : sbc #64
670 de3 cmp #53
675 : bne de4
680 : lda #34
685 de4 rts